home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / lang8.dll / POST / 1085 < prev    next >
Text File  |  1996-10-03  |  9KB  |  481 lines
  1. %%BeginResource: procset Altsys_header 4 0
  2. userdict begin /AltsysDict 245 dict def end
  3. AltsysDict begin
  4. /bdf{bind def}bind def
  5. /xdf{exch def}bdf
  6. /defed{where{pop true}{false}ifelse}bdf
  7. /ndf{1 index where{pop pop pop}{dup xcheck{bind}if def}ifelse}bdf
  8. /d{setdash}bdf
  9. /h{closepath}bdf
  10. /H{}bdf
  11. /J{setlinecap}bdf
  12. /j{setlinejoin}bdf
  13. /M{setmiterlimit}bdf
  14. /n{newpath}bdf
  15. /N{newpath}bdf
  16. /q{gsave}bdf
  17. /Q{grestore}bdf
  18. /w{setlinewidth}bdf
  19. /sepdef{
  20. dup where not
  21. {
  22. AltsysSepDict
  23. }
  24. if    
  25. 3 1 roll exch put
  26. }bdf
  27. /st{settransfer}bdf
  28. /colorimage defed /_rci xdf
  29. /_NXLevel2 defed {            
  30. _NXLevel2 not {            
  31. /colorimage where {
  32. userdict eq {
  33. /_rci false def        
  34. } if
  35. } if
  36. } if
  37. } if
  38. /md defed{    
  39. md type /dicttype eq {        
  40. /colorimage where {        
  41. md eq {                
  42. /_rci false def    
  43. }if
  44. }if
  45. /settransfer where {
  46. md eq {
  47. /st systemdict /settransfer get def
  48. }if
  49. }if
  50. }if
  51. }if
  52. /setstrokeadjust defed
  53. {
  54. true setstrokeadjust
  55. /C{curveto}bdf
  56. /L{lineto}bdf
  57. /m{moveto}bdf
  58. }
  59. {
  60. /dr{transform .25 sub round .25 add
  61. exch .25 sub round .25 add exch itransform}bdf
  62. /C{dr curveto}bdf
  63. /L{dr lineto}bdf
  64. /m{dr moveto}bdf
  65. /setstrokeadjust{pop}bdf    
  66. }ifelse
  67. /rectstroke defed /xt xdf
  68. xt {/yt save def} if
  69. /privrectpath {    
  70. 4 -2 roll m
  71. dtransform round exch round exch idtransform    
  72. 2 copy 0 lt exch 0 lt xor
  73. {dup 0 exch rlineto exch 0 rlineto neg 0 exch rlineto}
  74. {exch dup 0 rlineto exch 0 exch rlineto neg 0 rlineto}
  75. ifelse
  76. closepath
  77. }bdf
  78. /rectclip{newpath privrectpath clip newpath}def
  79. /rectfill{gsave newpath privrectpath fill grestore}def
  80. /rectstroke{gsave newpath privrectpath stroke grestore}def
  81. xt {yt restore} if
  82. /_fonthacksave false def
  83. /currentpacking defed
  84. {
  85. /_bfh {/_fonthacksave currentpacking def false setpacking} bdf
  86. /_efh {_fonthacksave setpacking} bdf
  87. }
  88. {
  89. /_bfh {} bdf
  90. /_efh {} bdf
  91. }ifelse
  92. /packedarray{array astore readonly}ndf
  93. /`    
  94. {
  95. false setoverprint        
  96. /-save0- save def
  97. 5 index concat
  98. pop
  99. storerect left bottom width height rectclip
  100. pop
  101. /MMdict_count countdictstack def
  102. /MMop_count count 1 sub def
  103. userdict begin
  104. /showpage {} def
  105. 0 setgray 0 setlinecap 1 setlinewidth
  106. 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath
  107. } bdf
  108. /currentpacking defed{true setpacking}if
  109. /min{2 copy gt{exch}if pop}bdf
  110. /max{2 copy lt{exch}if pop}bdf
  111. /xformfont { currentfont exch makefont setfont } bdf
  112. /fhnumcolors 1
  113. statusdict begin
  114. /processcolors defed
  115. {
  116. pop processcolors
  117. }
  118. {
  119. /deviceinfo defed {
  120. deviceinfo /Colors known {
  121. pop deviceinfo /Colors get
  122. } if
  123. } if
  124. } ifelse
  125. end 
  126. def
  127. %    pix = x^2 + y^2
  128. /printerRes
  129. gsave
  130. matrix defaultmatrix setmatrix
  131. 72 72 dtransform
  132. abs exch abs
  133. max
  134. grestore
  135. def
  136. /graycalcs
  137. [
  138. {Angle Frequency}            
  139. {GrayAngle GrayFrequency}    
  140. {0 Width Height matrix defaultmatrix idtransform
  141. dup mul exch dup mul add sqrt 72 exch div}    
  142. {0 GrayWidth GrayHeight matrix defaultmatrix idtransform
  143. dup mul exch dup mul add sqrt 72 exch div}    
  144. ] def
  145. /calcgraysteps {
  146. forcemaxsteps
  147. {
  148. maxsteps
  149. }
  150. {
  151. /currenthalftone defed
  152. {currenthalftone /dicttype eq}{false}ifelse
  153. {
  154. currenthalftone begin
  155. HalftoneType 4 le
  156. {graycalcs HalftoneType 1 sub get exec}
  157. {
  158. HalftoneType 5 eq
  159. {
  160. Default begin
  161. {graycalcs HalftoneType 1 sub get exec}
  162. end
  163. }
  164. {0 60}    
  165. ifelse
  166. }
  167. ifelse
  168. end
  169. }
  170. {
  171. currentscreen pop exch            
  172. }
  173. ifelse
  174. printerRes 300 max exch div exch    
  175. 2 copy                                
  176. sin mul round dup mul                
  177. 3 1 roll                            
  178. cos mul round dup mul                
  179. add 1 add                            
  180. dup maxsteps gt {pop maxsteps} if    
  181. dup minsteps lt {pop minsteps} if    
  182. }
  183. ifelse
  184. } bdf
  185. /nextrelease defed {                        
  186. /languagelevel defed not {                
  187. /framebuffer defed {                
  188. 0 40 string framebuffer 9 1 roll 8 {pop} repeat
  189. dup 516 eq exch 520 eq or
  190. {
  191. /fhnumcolors 3 def
  192. /currentscreen {60 0 {pop pop 1}}bdf
  193. /calcgraysteps {maxsteps} bdf
  194. }if
  195. }if
  196. }if
  197. }if
  198. fhnumcolors 1 ne {
  199. /calcgraysteps {maxsteps} bdf
  200. } if
  201. /currentpagedevice defed {
  202. currentpagedevice /PreRenderingEnhance known
  203. {
  204. currentpagedevice /PreRenderingEnhance get
  205. {
  206. /calcgraysteps
  207. {
  208. forcemaxsteps
  209. {maxsteps}
  210. {256 maxsteps min}
  211. ifelse
  212. } def
  213. } if
  214. } if
  215. } if
  216. /gradfrequency 144 def
  217. printerRes 1000 lt {
  218. /gradfrequency 72 def
  219. } if
  220. /adjnumsteps {
  221. dup dtransform abs exch abs max  
  222. printerRes div                      
  223. gradfrequency mul                  
  224. round                          
  225. 5 max                         
  226. min                             
  227. }bdf
  228. /goodsep {
  229. spots exch get 4 get dup sepname eq exch (_vc_Registration) eq or
  230. }bdf
  231. /BeginGradation defed
  232. {/bb{BeginGradation}bdf}
  233. {/bb{}bdf}
  234. ifelse
  235. /EndGradation defed
  236. {/eb{EndGradation}bdf}
  237. {/eb{}bdf}
  238. ifelse
  239. /bottom -0 def            
  240. /delta -0 def            
  241. /frac -0 def            
  242. /height -0 def            
  243. /left -0 def            
  244. /numsteps1 -0 def        
  245. /radius -0 def            
  246. /right -0 def            
  247. /top -0 def                
  248. /width -0 def            
  249. /xt -0 def                
  250. /yt -0 def                
  251. /df currentflat def        
  252. /tempstr 1 string def    
  253. /clipflatness currentflat def    
  254. /inverted?                
  255. 0 currenttransfer exec .5 ge def
  256. /tc1 [0 0 0 1] def        
  257. /tc2 [0 0 0 1] def        
  258. /storerect{/top xdf /right xdf /bottom xdf /left xdf
  259. /width right left sub def /height top bottom sub def}bdf
  260. /concatprocs{
  261. systemdict /packedarray known
  262. {dup type /packedarraytype eq 2 index type /packedarraytype eq or}{false}ifelse
  263. {    
  264. /proc2 exch cvlit def    /proc1 exch cvlit def
  265. proc1 aload pop proc2 aload pop
  266. proc1 length proc2 length add packedarray cvx
  267. }
  268. {    
  269. /proc2 exch cvlit def    /proc1 exch cvlit def
  270. /newproc proc1 length proc2 length add array def
  271. newproc 0 proc1 putinterval newproc proc1 length proc2 putinterval
  272. newproc cvx
  273. }ifelse
  274. }bdf
  275. /i{dup 0 eq
  276. {pop df dup}    
  277. {dup} ifelse
  278. /clipflatness xdf setflat
  279. }bdf
  280. version cvr 38.0 le
  281. {/setrgbcolor{
  282. currenttransfer exec 3 1 roll
  283. currenttransfer exec 3 1 roll
  284. currenttransfer exec 3 1 roll
  285. setrgbcolor}bdf}if
  286. /vms {/vmsv save def} bdf
  287. /vmr {vmsv restore} bdf
  288. /vmrs{vmsv restore /vmsv save def}bdf
  289. /eomode{
  290. {/filler /eofill load def /clipper /eoclip load def}
  291. {/filler /fill load def /clipper /clip load def}
  292. ifelse
  293. }bdf
  294. /normtaper{}bdf
  295. /logtaper{9 mul 1 add log}bdf
  296. /CD{
  297. /NF exch def    
  298. {                
  299. exch dup    
  300. /FID ne 1 index/UniqueID ne and
  301. {exch NF 3 1 roll put}
  302. {pop pop}
  303. ifelse
  304. }forall
  305. NF
  306. }bdf
  307. /MN{
  308. 1 index length         
  309. /Len exch def
  310. dup length Len add     
  311. string dup             
  312. Len                 
  313. 4 -1 roll             
  314. putinterval         
  315. dup                 
  316. 0                     
  317. 4 -1 roll            
  318. putinterval            
  319. }bdf
  320. /RC{4 -1 roll /ourvec xdf 256 string cvs(|______)anchorsearch
  321. {1 index MN cvn/NewN exch def cvn
  322. findfont dup maxlength dict CD dup/FontName NewN put dup
  323. /Encoding ourvec put NewN exch definefont pop}{pop}ifelse}bdf
  324. /RF{                        
  325. dup                     
  326. FontDirectory exch         
  327. known                    
  328. {pop 3 -1 roll pop}        
  329. {RC}
  330. ifelse
  331. }bdf
  332. /FF{dup 256 string cvs(|______)exch MN cvn dup FontDirectory exch known
  333. {exch pop findfont 3 -1 roll pop}
  334. {pop dup findfont dup maxlength dict CD dup dup
  335. /Encoding exch /Encoding get 256 array copy 7 -1 roll
  336. {3 -1 roll dup 4 -2 roll put}forall put definefont}
  337. ifelse}bdf
  338. /RCJ{4 -1 roll             
  339. /ourvec xdf          
  340. 256 string cvs         
  341. (|______) anchorsearch
  342. {pop                
  343. cvn                
  344. dup FDFJ        
  345. exch             
  346. 1 index         
  347. eq                
  348. {
  349. _bfh findfont _efh        
  350. dup                     
  351. maxlength dict            
  352. CD                        
  353. dup                        
  354. /FontName         
  355. 3 index            
  356. put                        
  357. dup                        
  358. /Encoding ourvec put    
  359. 1 index                    
  360. exch                     
  361. definefont                
  362. pop                        
  363. }
  364. {exch pop}        
  365. ifelse
  366. }
  367. {pop}                
  368. ifelse
  369. }bdf
  370. /RFJ{                        
  371. dup                     
  372. FontDirectory exch         
  373. known                    
  374. {pop 3 -1 roll pop}        
  375. {RCJ}
  376. ifelse
  377. }bdf
  378. /hasfont
  379. {
  380. /resourcestatus where    
  381. {
  382. pop            
  383. /Font resourcestatus
  384. {            
  385. pop pop true
  386. }
  387. {            
  388. false
  389. }
  390. ifelse
  391. }
  392. {
  393. dup FontDirectory exch known
  394. {pop true}
  395. {
  396. 256 string
  397. cvs
  398. (fonts/) exch MN
  399. status
  400. {pop pop pop pop true}
  401. {false}
  402. ifelse
  403. }
  404. ifelse
  405. }
  406. ifelse
  407. }bdf
  408. /FDFJ
  409. {
  410. dup            
  411. hasfont        
  412. not            
  413. {            
  414. pop
  415. /Ryumin-Light-83pv-RKSJ-H
  416. hasfont            
  417. {
  418. /Ryumin-Light-83pv-RKSJ-H
  419. }
  420. {
  421. /Courier
  422. }
  423. ifelse            
  424. }
  425. if
  426. }bdf
  427. /FFJ{
  428. _bfh
  429. dup                    
  430. 256 string cvs        
  431. (|______)exch MN    
  432. cvn                    
  433. dup                    
  434. FontDirectory
  435. exch known            
  436. {                    
  437. exch                
  438. pop                    
  439. findfont            
  440. 3 -1 roll            
  441. pop                    
  442. }
  443. {                    
  444. pop                    
  445. FDFJ                
  446. dup findfont        
  447. dup maxlength dict    
  448. CD                     
  449. dup dup                
  450. /Encoding exch        
  451. /Encoding get        
  452. 256 array copy        
  453. 7 -1 roll             
  454. {                    
  455. 3 -1 roll        
  456. dup                
  457. 4 -2 roll        
  458. put                
  459. }forall
  460. put                 
  461. definefont            
  462. }
  463. ifelse
  464. _efh
  465. }bdf
  466. /fps{
  467. currentflat         
  468. exch                 
  469. dup 0 le{pop 1}if    
  470. {
  471. dup setflat 3 index stopped
  472. {1.3 mul dup 3 index gt{pop setflat pop pop stop}if}    
  473. {exit}            
  474. ifelse
  475. }loop
  476. pop setflat pop pop
  477. }bdf
  478. /fp{100 currentflat fps}bdf
  479. /clipper{clip}bdf        
  480. /W{/clipper load 100 clipflatness dup setflat fps}bdf